home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 October: Mac OS SDK / Dev.CD Oct 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / PInterfaces / AEDataModel.p < prev    next >
Encoding:
Text File  |  1997-08-12  |  17.7 KB  |  437 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        AEDataModel.p
  3.  
  4.      Contains:    AppleEvent Data Model Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Release:    Universal Interfaces 3.0.1
  8.  
  9.      Copyright:    © 1996-1997 by Apple Computer, Inc., all rights reserved
  10.  
  11.      Bugs?:        Please include the the file and version information (from above) with
  12.                  the problem description.  Developers belonging to one of the Apple
  13.                  developer programs can submit bug reports to:
  14.  
  15.                      devsupport@apple.com
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT AEDataModel;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __AEDATAMODEL__}
  28. {$SETC __AEDATAMODEL__ := 1}
  29.  
  30. {$I+}
  31. {$SETC AEDataModelIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __TYPES__}
  35. {$I Types.p}
  36. {$ENDC}
  37. {$IFC UNDEFINED __MIXEDMODE__}
  38. {$I MixedMode.p}
  39. {$ENDC}
  40.  
  41.  
  42. {$PUSH}
  43. {$ALIGN MAC68K}
  44. {$LibExport+}
  45.  
  46. { Apple event descriptor types }
  47.  
  48. CONST
  49.     typeBoolean                    = 'bool';
  50.     typeChar                    = 'TEXT';
  51.  
  52. { Preferred numeric Apple event descriptor types }
  53.     typeSInt16                    = 'shor';
  54.     typeSInt32                    = 'long';
  55.     typeUInt32                    = 'magn';
  56.     typeSInt64                    = 'comp';
  57.     typeIEEE32BitFloatingPoint    = 'sing';
  58.     typeIEEE64BitFloatingPoint    = 'doub';
  59.     type128BitFloatingPoint        = 'ldbl';
  60.     typeDecimalStruct            = 'decm';
  61.  
  62. { Non-preferred Apple event descriptor types }
  63.     typeSMInt                    = 'shor';
  64.     typeShortInteger            = 'shor';
  65.     typeInteger                    = 'long';
  66.     typeLongInteger                = 'long';
  67.     typeMagnitude                = 'magn';
  68.     typeComp                    = 'comp';
  69.     typeSMFloat                    = 'sing';
  70.     typeShortFloat                = 'sing';
  71.     typeFloat                    = 'doub';
  72.     typeLongFloat                = 'doub';
  73.     typeExtended                = 'exte';
  74.  
  75. { More Apple event descriptor types }
  76.     typeAEList                    = 'list';
  77.     typeAERecord                = 'reco';
  78.     typeAppleEvent                = 'aevt';
  79.     typeEventRecord                = 'evrc';
  80.     typeTrue                    = 'true';
  81.     typeFalse                    = 'fals';
  82.     typeAlias                    = 'alis';
  83.     typeEnumerated                = 'enum';
  84.     typeType                    = 'type';
  85.     typeAppParameters            = 'appa';
  86.     typeProperty                = 'prop';
  87.     typeFSS                        = 'fss ';
  88.     typeKeyword                    = 'keyw';
  89.     typeSectionH                = 'sect';
  90.     typeWildCard                = '****';
  91.     typeApplSignature            = 'sign';
  92.     typeQDRectangle                = 'qdrt';
  93.     typeFixed                    = 'fixd';
  94.     typeSessionID                = 'ssid';
  95.     typeTargetID                = 'targ';
  96.     typeProcessSerialNumber        = 'psn ';
  97.     typeKernelProcessID            = 'kpid';
  98.     typeDispatcherID            = 'dspt';
  99.     typeNull                    = 'null';                        {  null or nonexistent data  }
  100.  
  101. { Keywords for Apple event attributes }
  102.     keyTransactionIDAttr        = 'tran';
  103.     keyReturnIDAttr                = 'rtid';
  104.     keyEventClassAttr            = 'evcl';
  105.     keyEventIDAttr                = 'evid';
  106.     keyAddressAttr                = 'addr';
  107.     keyOptionalKeywordAttr        = 'optk';
  108.     keyTimeoutAttr                = 'timo';
  109.     keyInteractLevelAttr        = 'inte';                        {  this attribute is read only - will be set in AESend  }
  110.     keyEventSourceAttr            = 'esrc';                        {  this attribute is read only  }
  111.     keyMissedKeywordAttr        = 'miss';                        {  this attribute is read only  }
  112.     keyOriginalAddressAttr        = 'from';                        {  new in 1.0.1  }
  113.  
  114.  
  115. {    Constants used for specifying the factoring of AEDescLists. }
  116.     kAEDescListFactorNone        = 0;
  117.     kAEDescListFactorType        = 4;
  118.     kAEDescListFactorTypeAndSize = 8;
  119.  
  120. { Constants used creating an AppleEvent }
  121.                                                                 {  Constant for the returnID param of AECreateAppleEvent  }
  122.     kAutoGenerateReturnID        = -1;                            {  AECreateAppleEvent will generate a session-unique ID  }
  123.                                                                 {  Constant for transaction ID’s  }
  124.     kAnyTransactionID            = 0;                            {  no transaction is in use  }
  125.  
  126. { Apple event manager data types }
  127.  
  128. TYPE
  129.     DescType                            = ResType;
  130.     AEKeyword                            = FourCharCode;
  131.     AEDescPtr = ^AEDesc;
  132.     AEDesc = RECORD
  133.         descriptorType:            DescType;
  134.         dataHandle:                Handle;
  135.     END;
  136.  
  137.     AEKeyDescPtr = ^AEKeyDesc;
  138.     AEKeyDesc = RECORD
  139.         descKey:                AEKeyword;
  140.         descContent:            AEDesc;
  141.     END;
  142.  
  143. { a list of AEDesc's is a special kind of AEDesc }
  144.     AEDescList                            = AEDesc;
  145.     AEDescListPtr                         = ^AEDescList;
  146. { AERecord is a list of keyworded AEDesc's }
  147.     AERecord                            = AEDescList;
  148.     AERecordPtr                         = ^AERecord;
  149. { an AEDesc which contains address data }
  150.     AEAddressDesc                        = AEDesc;
  151.     AEAddressDescPtr                     = ^AEAddressDesc;
  152. { an AERecord that contains an AppleEvent, and related data types }
  153.     AppleEvent                            = AERecord;
  154.     AppleEventPtr                         = ^AppleEvent;
  155.     AEReturnID                            = SInt16;
  156.     AETransactionID                        = SInt32;
  157.     AEEventClass                        = FourCharCode;
  158.     AEEventID                            = FourCharCode;
  159.     AEArrayType                            = SInt8;
  160.  
  161. CONST
  162.     kAEDataArray                = 0;
  163.     kAEPackedArray                = 1;
  164.     kAEDescArray                = 3;
  165.     kAEKeyDescArray                = 4;
  166.  
  167.  
  168.     kAEHandleArray                = 2;
  169.  
  170.  
  171. TYPE
  172.     AEArrayDataPtr = ^AEArrayData;
  173.     AEArrayData = RECORD
  174.         CASE INTEGER OF
  175.         0: (
  176.             kAEDataArray:        ARRAY [0..0] OF INTEGER;
  177.             );
  178.         1: (
  179.             kAEPackedArray:        SInt8;
  180.             );
  181.         2: (
  182.             kAEHandleArray:        ARRAY [0..0] OF Handle;
  183.             );
  184.         3: (
  185.             kAEDescArray:        ARRAY [0..0] OF AEDesc;
  186.             );
  187.         4: (
  188.             kAEKeyDescArray:    ARRAY [0..0] OF AEKeyDesc;
  189.             );
  190.     END;
  191.  
  192.     AEArrayDataPointer                    = ^AEArrayData;
  193.     AEArrayDataPointerPtr                 = ^AEArrayDataPointer;
  194.  
  195. {*************************************************************************
  196.   These calls are used to set up and modify the coercion dispatch table.
  197. *************************************************************************}
  198.     AECoerceDescProcPtr = ProcPtr;  { FUNCTION AECoerceDesc((CONST)VAR fromDesc: AEDesc; toType: DescType; handlerRefcon: LONGINT; VAR toDesc: AEDesc): OSErr; }
  199.  
  200.     AECoercePtrProcPtr = ProcPtr;  { FUNCTION AECoercePtr(typeCode: DescType; dataPtr: UNIV Ptr; dataSize: Size; toType: DescType; handlerRefcon: LONGINT; VAR result: AEDesc): OSErr; }
  201.  
  202.     AECoerceDescUPP = UniversalProcPtr;
  203.     AECoercePtrUPP = UniversalProcPtr;
  204.  
  205. CONST
  206.     uppAECoerceDescProcInfo = $00003FE0;
  207.     uppAECoercePtrProcInfo = $0003FFE0;
  208.  
  209. FUNCTION NewAECoerceDescProc(userRoutine: AECoerceDescProcPtr): AECoerceDescUPP;
  210.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  211.     INLINE $2E9F;
  212.     {$ENDC}
  213.  
  214. FUNCTION NewAECoercePtrProc(userRoutine: AECoercePtrProcPtr): AECoercePtrUPP;
  215.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  216.     INLINE $2E9F;
  217.     {$ENDC}
  218.  
  219. FUNCTION CallAECoerceDescProc({CONST}VAR fromDesc: AEDesc; toType: DescType; handlerRefcon: LONGINT; VAR toDesc: AEDesc; userRoutine: AECoerceDescUPP): OSErr;
  220.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  221.     INLINE $205F, $4E90;
  222.     {$ENDC}
  223.  
  224. FUNCTION CallAECoercePtrProc(typeCode: DescType; dataPtr: UNIV Ptr; dataSize: Size; toType: DescType; handlerRefcon: LONGINT; VAR result: AEDesc; userRoutine: AECoercePtrUPP): OSErr;
  225.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  226.     INLINE $205F, $4E90;
  227.     {$ENDC}
  228.  
  229. TYPE
  230.     AECoercionHandlerUPP                = UniversalProcPtr;
  231. FUNCTION AEInstallCoercionHandler(fromType: DescType; toType: DescType; handler: AECoercionHandlerUPP; handlerRefcon: LONGINT; fromTypeIsDesc: BOOLEAN; isSysHandler: BOOLEAN): OSErr;
  232.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  233.     INLINE $303C, $0A22, $A816;
  234.     {$ENDC}
  235. FUNCTION AERemoveCoercionHandler(fromType: DescType; toType: DescType; handler: AECoercionHandlerUPP; isSysHandler: BOOLEAN): OSErr;
  236.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  237.     INLINE $303C, $0723, $A816;
  238.     {$ENDC}
  239. FUNCTION AEGetCoercionHandler(fromType: DescType; toType: DescType; VAR handler: AECoercionHandlerUPP; VAR handlerRefcon: LONGINT; VAR fromTypeIsDesc: BOOLEAN; isSysHandler: BOOLEAN): OSErr;
  240.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  241.     INLINE $303C, $0B24, $A816;
  242.     {$ENDC}
  243.  
  244. {*************************************************************************
  245.   The following calls provide for a coercion interface.
  246. *************************************************************************}
  247. FUNCTION AECoercePtr(typeCode: DescType; dataPtr: UNIV Ptr; dataSize: Size; toType: DescType; VAR result: AEDesc): OSErr;
  248.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  249.     INLINE $303C, $0A02, $A816;
  250.     {$ENDC}
  251. FUNCTION AECoerceDesc({CONST}VAR theAEDesc: AEDesc; toType: DescType; VAR result: AEDesc): OSErr;
  252.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  253.     INLINE $303C, $0603, $A816;
  254.     {$ENDC}
  255.  
  256. {*************************************************************************
  257.  The following calls apply to any AEDesc. Every 'result' descriptor is
  258.  created for you, so you will be responsible for memory management
  259.  (including disposing) of the descriptors so created.  
  260. *************************************************************************}
  261. FUNCTION AECreateDesc(typeCode: DescType; dataPtr: UNIV Ptr; dataSize: Size; VAR result: AEDesc): OSErr;
  262.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  263.     INLINE $303C, $0825, $A816;
  264.     {$ENDC}
  265. FUNCTION AEDisposeDesc(VAR theAEDesc: AEDesc): OSErr;
  266.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  267.     INLINE $303C, $0204, $A816;
  268.     {$ENDC}
  269. FUNCTION AEDuplicateDesc({CONST}VAR theAEDesc: AEDesc; VAR result: AEDesc): OSErr;
  270.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  271.     INLINE $303C, $0405, $A816;
  272.     {$ENDC}
  273.  
  274. {*************************************************************************
  275.   The following calls apply to AEDescList. Since AEDescList is a subtype of
  276.   AEDesc, the calls in the previous section can also be used for AEDescList.
  277.   All list and array indices are 1-based. If the data was greater than
  278.   maximumSize in the routines below, then actualSize will be greater than
  279.   maximumSize, but only maximumSize bytes will actually be retrieved.
  280. *************************************************************************}
  281. FUNCTION AECreateList(factoringPtr: UNIV Ptr; factoredSize: Size; isRecord: BOOLEAN; VAR resultList: AEDescList): OSErr;
  282.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  283.     INLINE $303C, $0706, $A816;
  284.     {$ENDC}
  285. FUNCTION AECountItems({CONST}VAR theAEDescList: AEDescList; VAR theCount: LONGINT): OSErr;
  286.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  287.     INLINE $303C, $0407, $A816;
  288.     {$ENDC}
  289. FUNCTION AEPutPtr(VAR theAEDescList: AEDescList; index: LONGINT; typeCode: DescType; dataPtr: UNIV Ptr; dataSize: Size): OSErr;
  290.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  291.     INLINE $303C, $0A08, $A816;
  292.     {$ENDC}
  293. FUNCTION AEPutDesc(VAR theAEDescList: AEDescList; index: LONGINT; {CONST}VAR theAEDesc: AEDesc): OSErr;
  294.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  295.     INLINE $303C, $0609, $A816;
  296.     {$ENDC}
  297. FUNCTION AEGetNthPtr({CONST}VAR theAEDescList: AEDescList; index: LONGINT; desiredType: DescType; VAR theAEKeyword: AEKeyword; VAR typeCode: DescType; dataPtr: UNIV Ptr; maximumSize: Size; VAR actualSize: Size): OSErr;
  298.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  299.     INLINE $303C, $100A, $A816;
  300.     {$ENDC}
  301. FUNCTION AEGetNthDesc({CONST}VAR theAEDescList: AEDescList; index: LONGINT; desiredType: DescType; VAR theAEKeyword: AEKeyword; VAR result: AEDesc): OSErr;
  302.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  303.     INLINE $303C, $0A0B, $A816;
  304.     {$ENDC}
  305. FUNCTION AESizeOfNthItem({CONST}VAR theAEDescList: AEDescList; index: LONGINT; VAR typeCode: DescType; VAR dataSize: Size): OSErr;
  306.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  307.     INLINE $303C, $082A, $A816;
  308.     {$ENDC}
  309. FUNCTION AEGetArray({CONST}VAR theAEDescList: AEDescList; arrayType: AEArrayType; arrayPtr: AEArrayDataPointer; maximumSize: Size; VAR itemType: DescType; VAR itemSize: Size; VAR itemCount: LONGINT): OSErr;
  310.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  311.     INLINE $303C, $0D0C, $A816;
  312.     {$ENDC}
  313. FUNCTION AEPutArray(VAR theAEDescList: AEDescList; arrayType: AEArrayType; {CONST}VAR arrayPtr: AEArrayData; itemType: DescType; itemSize: Size; itemCount: LONGINT): OSErr;
  314.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  315.     INLINE $303C, $0B0D, $A816;
  316.     {$ENDC}
  317. FUNCTION AEDeleteItem(VAR theAEDescList: AEDescList; index: LONGINT): OSErr;
  318.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  319.     INLINE $303C, $040E, $A816;
  320.     {$ENDC}
  321.  
  322. {*************************************************************************
  323.  The following calls apply to AERecord. Since AERecord is a subtype of
  324.  AEDescList, the calls in the previous sections can also be used for
  325.  AERecord an AERecord can be created by using AECreateList with isRecord
  326.  set to true. 
  327. *************************************************************************}
  328. {
  329.   Note: none of the “key” calls were available in the PowerPC 7.x IntefaceLib.
  330.   In C, a #define is used to map “key” calls to “param” calls.  In pascal
  331.   this mapping is done in externally linked glue code.
  332. }
  333.  
  334. FUNCTION AEPutKeyPtr(VAR theAERecord: AERecord; theAEKeyword: AEKeyword; typeCode: DescType; dataPtr: UNIV Ptr; dataSize: Size): OSErr;
  335.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  336.     INLINE $303C, $0A0F, $A816;
  337.     {$ENDC}
  338. FUNCTION AEPutKeyDesc(VAR theAERecord: AERecord; theAEKeyword: AEKeyword; {CONST}VAR theAEDesc: AEDesc): OSErr;
  339.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  340.     INLINE $303C, $0610, $A816;
  341.     {$ENDC}
  342. FUNCTION AEGetKeyPtr({CONST}VAR theAERecord: AERecord; theAEKeyword: AEKeyword; desiredType: DescType; VAR typeCode: DescType; dataPtr: UNIV Ptr; maximumSize: Size; VAR actualSize: Size): OSErr;
  343.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  344.     INLINE $303C, $0E11, $A816;
  345.     {$ENDC}
  346. FUNCTION AEGetKeyDesc({CONST}VAR theAERecord: AERecord; theAEKeyword: AEKeyword; desiredType: DescType; VAR result: AEDesc): OSErr;
  347.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  348.     INLINE $303C, $0812, $A816;
  349.     {$ENDC}
  350. FUNCTION AESizeOfKeyDesc({CONST}VAR theAERecord: AERecord; theAEKeyword: AEKeyword; VAR typeCode: DescType; VAR dataSize: Size): OSErr;
  351.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  352.     INLINE $303C, $0829, $A816;
  353.     {$ENDC}
  354. FUNCTION AEDeleteKeyDesc(VAR theAERecord: AERecord; theAEKeyword: AEKeyword): OSErr;
  355.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  356.     INLINE $303C, $0413, $A816;
  357.     {$ENDC}
  358. {*************************************************************************
  359.   The following calls create and manipulate the AppleEvent data type.
  360. *************************************************************************}
  361. FUNCTION AECreateAppleEvent(theAEEventClass: AEEventClass; theAEEventID: AEEventID; {CONST}VAR target: AEAddressDesc; returnID: AEReturnID; transactionID: AETransactionID; VAR result: AppleEvent): OSErr;
  362.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  363.     INLINE $303C, $0B14, $A816;
  364.     {$ENDC}
  365.  
  366. {*************************************************************************
  367.   The following calls are used to pack and unpack parameters from records
  368.   of type AppleEvent. Since AppleEvent is a subtype of AERecord, the calls
  369.   in the previous sections can also be used for variables of type
  370.   AppleEvent. The next six calls are in fact identical to the six calls
  371.   for AERecord.
  372. *************************************************************************}
  373. FUNCTION AEPutParamPtr(VAR theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; typeCode: DescType; dataPtr: UNIV Ptr; dataSize: Size): OSErr;
  374.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  375.     INLINE $303C, $0A0F, $A816;
  376.     {$ENDC}
  377. FUNCTION AEPutParamDesc(VAR theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; {CONST}VAR theAEDesc: AEDesc): OSErr;
  378.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  379.     INLINE $303C, $0610, $A816;
  380.     {$ENDC}
  381. FUNCTION AEGetParamPtr({CONST}VAR theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; desiredType: DescType; VAR typeCode: DescType; dataPtr: UNIV Ptr; maximumSize: Size; VAR actualSize: Size): OSErr;
  382.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  383.     INLINE $303C, $0E11, $A816;
  384.     {$ENDC}
  385. FUNCTION AEGetParamDesc({CONST}VAR theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; desiredType: DescType; VAR result: AEDesc): OSErr;
  386.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  387.     INLINE $303C, $0812, $A816;
  388.     {$ENDC}
  389. FUNCTION AESizeOfParam({CONST}VAR theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; VAR typeCode: DescType; VAR dataSize: Size): OSErr;
  390.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  391.     INLINE $303C, $0829, $A816;
  392.     {$ENDC}
  393. FUNCTION AEDeleteParam(VAR theAppleEvent: AppleEvent; theAEKeyword: AEKeyword): OSErr;
  394.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  395.     INLINE $303C, $0413, $A816;
  396.     {$ENDC}
  397.  
  398.  
  399. {*************************************************************************
  400.  The following calls also apply to type AppleEvent. Message attributes are
  401.  far more restricted, and can only be accessed through the following 5
  402.  calls. The various list and record routines cannot be used to access the
  403.  attributes of an event. 
  404. *************************************************************************}
  405. FUNCTION AEGetAttributePtr({CONST}VAR theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; desiredType: DescType; VAR typeCode: DescType; dataPtr: UNIV Ptr; maximumSize: Size; VAR actualSize: Size): OSErr;
  406.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  407.     INLINE $303C, $0E15, $A816;
  408.     {$ENDC}
  409. FUNCTION AEGetAttributeDesc({CONST}VAR theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; desiredType: DescType; VAR result: AEDesc): OSErr;
  410.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  411.     INLINE $303C, $0826, $A816;
  412.     {$ENDC}
  413. FUNCTION AESizeOfAttribute({CONST}VAR theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; VAR typeCode: DescType; VAR dataSize: Size): OSErr;
  414.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  415.     INLINE $303C, $0828, $A816;
  416.     {$ENDC}
  417. FUNCTION AEPutAttributePtr(VAR theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; typeCode: DescType; dataPtr: UNIV Ptr; dataSize: Size): OSErr;
  418.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  419.     INLINE $303C, $0A16, $A816;
  420.     {$ENDC}
  421. FUNCTION AEPutAttributeDesc(VAR theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; {CONST}VAR theAEDesc: AEDesc): OSErr;
  422.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  423.     INLINE $303C, $0627, $A816;
  424.     {$ENDC}
  425.  
  426.  
  427. {$ALIGN RESET}
  428. {$POP}
  429.  
  430. {$SETC UsingIncludes := AEDataModelIncludes}
  431.  
  432. {$ENDC} {__AEDATAMODEL__}
  433.  
  434. {$IFC NOT UsingIncludes}
  435.  END.
  436. {$ENDC}
  437.